DEFINITION FOR C MODULE Time ;

FROM SYSTEM IMPORT STRING, ADDRESS ;

CONST
  CLOCKS_PER_SEC = 50 ;

TYPE
  clock_t = LONGCARD ;(* Make sure range checking is off when you use clock_t *)

  time_t  = LONGINT ;

  tm = RECORD
    sec   : LONGINT ;   (*  0-59			*)
    min   : LONGINT ;   (*  0-59			*)
    hour  : LONGINT ;   (*  0-23			*)
    mday  : LONGINT ;   (*  1-31			*)
    mon   : LONGINT ;   (*  0-11			*)
    year  : LONGINT ;   (*  n+1900			*)
    wday  : LONGINT ;   (*  (sun)0-6			*)
    yday  : LONGINT ;   (*  0-366			*)
    isdst : LONGINT ;   (* daylight savings time flag	*)
  END ;
  tmPtr = POINTER TO tm ;

PROCEDURE asctime( VAR ctm : tm ) : STRING ;
PROCEDURE clock( ) : clock_t  ;
PROCEDURE time( VAR tp : time_t ) ;

PROCEDURE ctime( VAR ctm : time_t ) : STRING ;
PROCEDURE gmtime( VAR t : time_t ) : tmPtr ;
PROCEDURE localtime( VAR ctm : time_t ) : tmPtr ;
PROCEDURE mktime( VAR t : tm ) : time_t ;

PROCEDURE strftime(     str  : STRING ;
		        smax : LONGINT ;
		        fmt  : STRING ;
		    VAR tmm  : tm ) : LONGINT ;

PROCEDURE difftime( t1 , t2 : time_t ) : LONGREAL ;

END Time.

